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FACILITY: General Utility Library 
“ABSTRACT: 
LIBSCVTDF converts a Double precision floating point scalar 


aere te to Single precision floating point quantity and 
checks for floating overflow. 


VERSION: 01 
HISTORY: 


AUTHOR: 
Thomas N. Hastings, 27-May-77: Version 01 


MODIFIED BY: 
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i LBSEVTOF ; Convert Bg ones to Floating 15-SEP-1 1386 $380: 38 al yd Macro V04-00 Page § 
~01 HISTORY Detailed Current Sait History 6-SEP-1984 11:04:1 LIBRTL.SRCIJLIBCVTDF .MAR; 1 (2) 
8 a -SBTTL HISTORY ; Detailed Current Edit History 
4 ; Edit History for Version 01 of LIBSCVTDF 
gong 
0000 25 3; 1-007 = Update version number and copyright ian ti 16-NOV-78 
0000 58 ; 1-008 - Remove SCHFDEF macro - it is not needed. S 16-DEC-78 
0000 59 ; 1-009 = Add ‘'_"’ to PSECT directive. JBS 21-DEC- 278°" 
0000 60 ; 1-010 - Change shared external references to G* RNH 25-Sep-81 
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IBSCVTDF ; Convert Double to Floatin 15-SEP-1984 23:49:5 AX/VMS Macro v04-00 P 
eit BECLARAT IONS ° anSEER Tbs Fiidaske YONaN TS eaese elt TCO aes1 P29" (d) 
$¢ -SBTTL DECLARATIONS 
64; 
$2 ; INCLUDE FILES: 
00 Oe? 
$0 8 : EXTERNAL SYMBOLS 
0000 70 ; 
0000 71 
0000 ie 
44 7 -EXTRN LIB$SIG_TO_RET 3; Library routine to convert a signal 
000 74 3; to an error return to caller 
83 1 Pate eetae 
: = signaled condition 
0000 77; 
0000 78 ; MACROS: 
0000 79 ; 
0000 80 ; 
0000 81; 
0000 Ht ; 
0000 8 
0000 84 ; 
0000 85 ; OWN STORAGE: 
0000 86 ; 
0000 87 
0000 88 ; 
0000 89 ; PSECT DECLARATIONS: 
0000 90 ; 
0000 91 
00000000 4 -PSECT _LIBSCODE PIC,SHR,LONG, EXE ,NOWRT 
464 3 3 program section for LIB$ code 
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| 
98 -SBTTL LIBSCVTDF = Convert Double to Floating and check overflow | : 
98 :44 | : 
100 : FUNCTIONAL DESCRIPTION: : 
101 : LIBSCVTDF converts a Double precision floating point scalar ; 
00 136 3 to a single precision floating point scalar and checks 3 
i } 7 ; tor floating point overflow. | : 
9000 198 ; CALLING SEQUENCE: | ; 
0000 19 ; Status.wlc.v = FORSCVTDF (double.rd.r, floating.wf.r) F 
000 109: : 
4464 119 3; INPUT PARAMETERS: : 
00000004 4 \\¢ ; double = 4 ; first arg is adr. of double prec. scalar ; 
9000 114 ; IMPLICIT INPUTS: : 
000 115; NONE 3 
0000 116; 3 
44 We ; OUTPUT PARAMETERS: : 
00000008 4 119 ; single = 8 ; second arg is adr. of single prec. scalar ; 
0000 154 : IMPLICIT OUTPUTS: : 
0000 156 ; NONE 3 
0000 123; 3 
0000 124 ; COMPLETION CODES: 3 
0000 125; , ; : 3 
44 1$6 ; Success if no floating overflow, otherwise failure : 
0000 128 ; SIDE EFFECTS: F 
0000 192 3 NONE 3 
0000 130; ; 
0000 131 :-- 3 
0000 13 3 
0000 13 : 
0000 134 5 
0060 itt 13? -ENTRY LIBSCVTDF, 0 3; standard call-by-reference entry : 
6D Q0000000°GF ODE $803 137 MOVAL G“LIBSSIG_TO_RET, (FP) ; setup handler ‘ : 
08 BC 04 8C 76 0009 138 CVTDF a@double(AP), asingle(AP); convert double to floating F 
BOOE 139 ; trap on overflow to handler : 
OOE 140 : which will unwind an return err cond 3 
QOOE 141 : in RO to caller of LIBSCVTDF 3 
50 01 CE OOO0E HP MNEGL #1, RO 3 success status code é 
04 0011 14 RET 3 return 3 
pots 144 3 
001 145 : 
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LIBSCVTDF ; Convert Double to Floating Ft dt 9 $3139: 38 yay eves Macro V04-00 Page 
Symbol table 6-SEP=1984 11:04:1 LIBRTL.SRCJLIBCVTDF .MAR; 1 
DOUBLE = a 
LIBSCVTDF 00000000 RG 4 
LIBSSIG_TO_RET ‘seeeeeee =X 0 
SINGLE = 00000008 

teow enn nw e wessece a} 

: Psect synopsis ! 

$eereooen een eeeasca + 
PSECT name Allocation PSECT No. Attributes 
- ABS, 0000000 ( 8} 69 ( P-} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
-LIBSCODE OO00012 ¢ 18.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

teense ee + 
; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.06 00:00:02.55 
Command processing 106 B800: 00.58 OF 0 06 +B? 
Pass 65 00:00:00. 00:00:03.84 
Symbol table sort 0 00:00:00.00  00:00:00.01 
Pass 2 40 00:00:00.18 00:00:02.43 
Symbol table output 1 00:00:00.00  00:00:00.00 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 248 00:00:00.79  00:00:11.69 


The working gee Limit was 900 pages. 

1409 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 0 local symbols. 
145 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


} 
deere nem nnn en mame wr ene mewn + 


-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 

0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBCVTDF /OBJ=OBJ$:LIBCVIDF MSRC$:LIBCVTDF /UPDATE=(ENH$:LIBCVTDF ) 
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